home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / system / SerialDevice.st < prev    next >
Encoding:
Text File  |  2000-05-12  |  2.2 KB  |  86 lines
  1. " ---------------------------------------------------------------------"
  2. " SerialDevice Class is derived from abstract Device Class.            "
  3. ""
  4. "  WARNING:  You should know what you're doing to the Amiga OS before  "
  5. "            messing with this Class, or any other System Class!       "
  6. " ---------------------------------------------------------------------"
  7.  
  8. Class SerialDevice :Device
  9. ! 
  10.   terminators status   baudrate dSize    stops      bufferSize 
  11.   brkLen      rBufSize flags    syncType serialName
  12. !
  13. [
  14.    initializeWithTerm: charVal
  15.       <primitive 227 2 charVal serialName>
  16. |
  17.    readSync: syncValue
  18.       ^ <primitive 227 3 syncValue serialName>
  19. |
  20.    writeThis: writeString
  21.       <primitive 227 4 writeString serialName>
  22. |
  23.    reset
  24.       <primitive 227 5 serialName>
  25. |
  26.    pause
  27.       <primitive 227 6 serialName>
  28. |
  29.    restart
  30.       <primitive 227 7 serialName>
  31. |
  32.    sendBreakOfDuration: usecs
  33.       <primitive 227 8 usecs serialName>
  34. |
  35.    getStatus
  36.       ^ status <- <primitive 227 9 serialName>
  37. |
  38.    flush
  39.       <primitive 227 10 serialName>
  40. |
  41.    clearReadBuffer
  42.       <primitive 227 11 serialName>
  43. |
  44.    setSyncType: newSync
  45.       ^ syncType <- <primitive 227 12 newSync serialName>
  46. |
  47.    setBaud: newBaud
  48.       ^ baudrate <- <primitive 227 13 0 newBaud serialName>
  49. |
  50.    setParity: newParity status: onOrOff 
  51.  
  52.       " newParity: 0 = Space, 1 = Mark, 2 = Even & 3 = Odd: "
  53.       <primitive 227 15 newParity onOrOff serialName>
  54. |
  55.    setDataSize: newSize
  56.       ^ dSize <- <primitive 227 13 2 newSize serialName>
  57. |
  58.    setStops: newStops
  59.       ^ stops <- <primitive 227 13 3 newStops serialName>
  60. |
  61.    setBreakLen: duration
  62.       ^ brkLen <- <primitive 227 13 4 duration serialName>
  63. |
  64.    setRBufSize: size
  65.       ^ rBufSize <- <primitive 227 13 5 size serialName>
  66. |
  67.    setFlags: newFlags
  68.       ^ flags <- <primitive 227 13 6 newFlags serialName>
  69. |
  70.    setTerminators: termChars
  71.       ^ terminators <- <primitive 227 14 termChars serialName>
  72. |
  73.    setBufferSize: newSize
  74.       bufferSize <- newSize
  75. |      
  76.    open
  77.       <primitive 227 1 bufferSize serialName>
  78. |
  79.    close
  80.       <primitive 227 0 bufferSize serialName>
  81. |
  82.    new: newSerialName
  83.       serialName <- newSerialName.
  84.       ^ self
  85. ] 
  86.